perm filename RRR.F4[STR,LCS] blob sn#339412 filedate 1978-03-09 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	4	TYPE 1
C00003 ENDMK
CāŠ—;
4	TYPE 1
1	FORMAT(' TYPE 2 NUMBERS  '$)
2	FORMAT(10F)
	ACCEPT 2,A,B
	DO 3 K=1,10
	X=RAN(N)*(B-A)+A
3	TYPE 2,X
	GO TO 4
	END